(******************************
 * Programm von Dieter Seidel *
 *  Eingegeben am 14.11.1991  *
 * Berechnet die Quadrupel-   *
 * darstellung eines einge-   *
 * gebenen while-Programs und *
 * fuehrt dieses dann aus.    *
 ******************************)

DEFINITION MODULE QuadLese;


CONST MaxBefehle = 200; (* Grenze fuer die Anzahl der Befehle die eingegeben *)
                        (* werden kann. Effektiv ist es aber nur die Anzahl  *)
                        (* der Zeichen der einzelnen Befehle.                *)
      MaxQuad    = 50;
      MaxZeile   = 10;  (* Anzahl der Zeichen je Quadrupel-Befehl.           *)
      
TYPE WhileBegin = RECORD
                    while,
                    begin       : BOOLEAN;
                    whileZeiger : CARDINAL;
                  END;
     arrZeile   = ARRAY [1..MaxZeile] OF CHAR;
     QuadZeile  = RECORD
                     Zeile      : CARDINAL;
                     Befehl     : arrZeile;
                     IFzeile    : CARDINAL;
                     ELSEzeile  : CARDINAL;
                   END;
     arrQuad    = ARRAY [1..MaxQuad] OF QuadZeile;
     arrList    = ARRAY [1..MaxBefehle] OF CHAR;

VAR   QuadListe    : arrQuad;
      BefehlsListe : arrList;


PROCEDURE Lese(VAR Liste : arrList);

END QuadLese.

